﻿Public Class ClsServices
    Dim DateServ As String = ""
    Dim income As String = ""
    Dim Rcpt_Money As String = ""
    Dim PTTYPE As String = ""
    Property DateService() As String
        Get
            DateService = DateServ
        End Get
        Set(ByVal value As String)
            DateServ = value
        End Set
    End Property
    Property Receive_Money() As String
        Get
            Receive_Money = Rcpt_Money
        End Get
        Set(ByVal value As String)
            Rcpt_Money = value
        End Set
    End Property
    Property Patient_PTTYPE() As String
        Get
            Patient_PTTYPE = PTTYPE
        End Get
        Set(ByVal value As String)
            PTTYPE = value
        End Set
    End Property
    Property Income_Money() As String
        Get
            Income_Money = income
        End Get
        Set(ByVal value As String)
            income = value
        End Set
    End Property
End Class
